Data Base of the Video Yearbook 1995/Data Base of the Video Yearbook 1995 - Disc 1.iso/cosmos/pack2.dir/00050_quit.ls

Text File | 1995-12-30 | 501 b | 21 lines

on mouseDown
  set h to the locH of sprite clickOn()
  set v to the locV of sprite clickOn()
  repeat while the stillDown
    if rollOver(clickOn()) then
      set the locH of sprite clickOn() to h + 5
      set the locV of sprite clickOn() to v + 5
      next repeat
    end if
    set the locH of sprite clickOn() to h
    set the locV of sprite clickOn() to v
  end repeat
  set the locH of sprite clickOn() to h
  set the locV of sprite clickOn() to v
  updateStage()
end

on mouseUp
  quit()
end